home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 01.a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  12KB  |  372 lines
  1. 0 rem ***************************
  2. 1 rem gordon saga ii - 1985 by sm
  3. 2 rem ***************************
  4. 3 ifi=0theni=1:load"d.z.satz",8,1
  5. 4 poke648,204:poke53272,56:poke56576,0:print"[147]":rem d.t.satz aktivieren
  6. 5 open15,8,15:print"[147][158]";chr$(14);
  7. 6 side=2:gosub53200:print"[147]";
  8. 15 gosub60000: rem tabellen einlesen
  9. 20 dimwi(100): rem zimmer-merker
  10. 30 sc=0:mo=0 : rem score/versuch
  11. 40 sa=1:gosub53600                                   : rem titeltext
  12. 50 zn=1:gosub54000                                   : rem beschreib. 1.raum
  13. 100 rem start ------------------------------------------------------------------
  14. 101 :
  15. 110 ifsb<>0thensa=sb:sb=0:gosub53600:rem kommentar ausgeben
  16. 120 gosub50000           :rem befehlseingabe
  17. 130 :
  18. 300 rem geh-routine -----------------
  19. 310 ifri=0then400
  20. 320 i=map(zn,ri)
  21. 330 ifi=0thenprint"[196]iese [210]ichtung ist nicht m[185]glich!":goto400
  22. 340 zn=i:gosub54000
  23. 400 rem schau/untersuche ------------
  24. 410 ifve<>11then500
  25. 415 ifo1=0thengosub54000:goto500
  26. 420 sa=os(o1):gosub53400:gosub53500:ob$="[196]"+right$(i$,len(i$)-1)
  27. 425 ifob(o1)=-1then430
  28. 430 ifob(o1)<>znthenx$=ob$+" ist hier nicht zu sehen!":gosub53900:goto500
  29. 440 ifou(o1)=0thenx$=ob$+" hat keine besonderen [205]erkmale.":gosub53900
  30. 450 ifou(o1)thensa=ou(o1):gosub53800
  31. 500 rem nimm ------------------------
  32. 505 ifve<>12then600
  33. 506 ifsp=1then550:rem nimm alles
  34. 507 sa=os(o1):gosub53400:gosub53500:ob$="[196]"+right$(i$,len(i$)-1)
  35. 510 ifo1=0thenprint"[201]hr [211]atz enth[176]lt kein [207]bjekt !":goto600
  36. 514 :ifob(o1)=-1thenprint"[196]as haben [211]ie bereits !":goto600
  37. 515 :ifob(o1)<>znthenx$=ob$+" ist hier nicht zu sehen!":gosub53900:goto600
  38. 516 ifoa(o1)=0then600
  39. 520 :ifoa(o1)=1thenprint"[194]izarr!":goto600
  40. 525 :ifoa(o1)=2thenx$=ob$+" ist viel zu schwer zum tragen!":gosub53900:goto600
  41. 530 :ifoa(o1)=3thenprint"[199]enommen.":ob(o1)=-1:goto600
  42. 550 :
  43. 554 print:fori=1tooz
  44. 555 :ifob(i)<>znthen580
  45. 556 sa=os(i):gosub53400:gosub53500:ob$="[196]"+right$(i$,len(i$)-1)
  46. 560 :i$=ob$+": "
  47. 565 ifsq=1andi=o1then580:rem ausser
  48. 570 :ifoa(i)=1thenprinti$;"[194]izarr !"
  49. 575 :ifoa(i)=2thenprinti$;"[218]u schwer zum tragen !"
  50. 577 :ifoa(i)=3thenprinti$;"[199]enommen.":ob(i)=-1
  51. 580 nexti
  52. 600 rem inventur -----------------
  53. 601 ifve<>13then700
  54. 605 print"[211]ie haben: [145]"
  55. 610 ic=0:fori=1tooz
  56. 611 sa=os(i):gosub53400:gosub53500:ob$="[196]"+right$(i$,len(i$)-1):i$=ob$
  57. 612 :ifleft$(i$,3)="[196]er"thenj$=right$(i$,len(i$)-3):i$="[196]en"+j$
  58. 615 :ifob(i)=-1thenprint"";i$:ic=1
  59. 620 nexti:ific=0thenprint"[194]ock auf [194]ier !"
  60. 700 rem verliere -----------------
  61. 701 ifve<>14then800
  62. 702 ifsp=1then750: rem verlier alles
  63. 703 ifo1=0thenprint"[201]hr [211]atz enth[176]lt kein [207]bjekt!":goto800
  64. 705 ifob(o1)<>-1thenprint"[211]ie haben das nicht !":goto800
  65. 715 ob(o1)=zn:print"[207]k.":goto800
  66. 750 ic=0:fori=1tooz
  67. 755 :ifsq=1andi=o1then780:rem ausser
  68. 760 sa=os(i):gosub53400:gosub53500:ob$="[196]"+right$(i$,len(i$)-1):i$=ob$+": "
  69. 770 :ifob(i)=-1thenob(i)=zn:printi$;"[207]k.":ic=1
  70. 780 nexti:ific=0andsq=1thenprint"[215]ie soll das gehen ?"
  71. 782 ific=0andsq=0thenprint"[211]ie haben doch garnichts !"
  72. 800 :
  73. 2000 rem raumspezifische action ------------------------------------------------
  74. 50000 rem *****************************
  75. 50001 rem *                           *
  76. 50002 rem *     wort-parser 4.0       *
  77. 50003 rem *                           *
  78. 50004 rem *      <c> 1986 bei         *
  79. 50005 rem *                           *
  80. 50006 rem *     michael nickles       *
  81. 50007 rem *                           *
  82. 50008 rem *****************************
  83. 50010 rem befehlssatzeingabe ---------------------------------------------------
  84. 50011 zw=0:print:gosub53000:mo=mo+1:rem titelline ausgeben
  85. 50012 ifud>0then50500:rem und
  86. 50015 sl=77: rem befehlssatzlaenge
  87. 50020 be$="":poke198,0:print"[158]>[164]";
  88. 50030 getx$:ifpeek(203)=1then50120
  89. 50040 ifx$=""then50030
  90. 50050 iflen(be$)=0andasc(x$)=20then50030
  91. 50060 i=asc(x$):ifi<32ori>133andi<159thenifi<>20then50030
  92. 50070 iflen(be$)=slandi<>20then50030
  93. 50080 be$=be$+x$
  94. 50090 printchr$(20);x$;"[164]";
  95. 50100 ifi=20thenbe$=left$(be$,len(be$)-2):goto50030
  96. 50110 goto50030
  97. 50120 print"[157] "
  98. 50400 rem satzzeichen suchen ---------------------------------------------------
  99. 50401 :
  100. 50415 sn=0
  101. 50420 ifright$(be$,1)=" "thenbe$=left$(be$,len(be$)-1):goto50420
  102. 50430 i$=right$(be$,1)
  103. 50440 ifi$="."ori$="!"thensn=0:be$=left$(be$,len(be$)-1):goto50420
  104. 50450 ifi$="?"thensn=1:be$=left$(be$,len(be$)-1):goto50420
  105. 50500 rem be$-zeiger setzen ----------------------------------------------------
  106. 50501 :
  107. 50502 ifud=0thenve=0:ri=0:o1=0:o2=0:sp=0:sq=0
  108. 50504 ifud>0thenri=0:goto50530
  109. 50505 ifleft$(be$,1)=" "thenbe$=right$(be$,len(be$)-1):goto50505
  110. 50510 be$=be$+" "
  111. 50520 za=1 :rem zeiger a setzen
  112. 50530 zb=za+1
  113. 50540 ifmid$(be$,zb,1)=""thenud=0:close1:open1,8,3,"texte":return
  114. 50550 ifmid$(be$,zb,1)<>" "thenzb=zb+1:goto50550
  115. 50590 su$=mid$(be$,za,zb-za)
  116. 50600 rem su$ vorbehandlung ----------------------------------------------------
  117. 50601 :
  118. 50610 ifsu$="und"thenud=1:goto50630
  119. 50620 ifsu$=","thenud=2:goto50630
  120. 50625 goto50670
  121. 50630 za=zb+1
  122. 50640 ifmid$(be$,za,1)=""thenprint"[213]nd was ?":goto50530
  123. 50650 ifmid$(be$,za,1)=" "thenza=za+1:goto50650
  124. 50660 close1:open1,8,3,"texte":return
  125. 50670 ifsu$="ihn"orsu$="sie"orsu$="es"theno1=om:goto51300
  126. 50680 ifsu$="alles"thensp=1:goto51300
  127. 50690 ifsu$="ausser"thensq=1:goto51300
  128. 51000 rem binaere suchroutine --------------------------------------------------
  129. 51001 :
  130. 51002 close1:open1,8,3,"wortschatz"
  131. 51007 rem anfang und ende des suchbereiches ermitteln
  132. 51008 i=asc(left$(su$,1))
  133. 51009 ifi-65<0ori-65>25thengosub51500:goto50000
  134. 51010 an=in(i-65):rem anfang des suchbereiches
  135. 51012 iz=64
  136. 51013 ifin(i-iz)=0theniz=iz-1:goto51013
  137. 51015 en=in(i-iz)-1:rem ende des suchbereiches
  138. 51016 ifan=0thengosub51500:ud=0:goto50000
  139. 51020 sz=197:n=int(log(en-an+1)/log(2))+1              :rem maximal-formel
  140. 51030 sa=an-1+(2^n)/2:rem mitte der ges.dat
  141. 51040 gosub52100:rem a$ lesen
  142. 51050 n=n-1     :rem 1.abfrage
  143. 51060 :
  144. 51070 rem su$ mit a$ vergleichen ------
  145. 51080 : iflen(su$)<3then51110
  146. 51090 : ifwa=1 and su$=left$(a$,len(su$)) thenve=wc:goto51300
  147. 51100 : ifwa<>3orsu$<>right$(a$,len(su$))then51110
  148. 51102 :  ifud=1orud=2thenud=3:o1=0:o2=0
  149. 51104 :   ifo1=0theno1=wc:om=o1:goto51300
  150. 51105 :   ifo2=0theno2=wc:om=o1:goto51300
  151. 51110 : ifwa=2 and su$=a$                 thenri=wc:goto51300
  152. 51115 : ifwa=5 and su$=a$                 thenad=wc:goto51300
  153. 51120 : ifwa=1 and su$=a$                 thenve=wc:goto51300
  154. 51125 : ifwa=4 and su$=a$                 then51300
  155. 51130 : ifsu$<a$thensa=sa-(2^(n-1)):gosub52100:goto51160
  156. 51140 : ifsa+(2^(n-1))>sa+en-anandn>-1thenn=n-1:goto51140:rem ''ueberlauf''
  157. 51150 : sa=sa+(2^(n-1)):gosub52100:rem ''halbieren''
  158. 51160 :
  159. 51170 :n=n-1    :rem naechst. halbieren
  160. 51180 :ifn<0thengosub51500:ud=0:goto50000
  161. 51190 rem print"sa=";sa;" n=";n                             :rem unnoetig !!
  162. 51200 :goto51060:rem naechst. such-vers.
  163. 51300 rem naechstes wort
  164. 51310 za=zb+1
  165. 51320 ifmid$(be$,za,1)=""then50530
  166. 51330 ifmid$(be$,za,1)=" "thenza=za+1:goto51330
  167. 51350 goto50530
  168. 51500 rem ich kenne su$ nicht --------------------------------------------------
  169. 51501 :
  170. 51510 i=int(3*rnd(1))+1
  171. 51520 onigoto51530,51540,51550
  172. 51530 x$=""+"[201]ch kenne das [215]ort '"+su$+"' nicht.":goto52000
  173. 51540 x$=""+"[196]as [215]ort '"+su$+"' ist mir nicht bekannt.":goto52000
  174. 51550 x$=""+"[196]eutsch ist leider nur meine zweite [211]prache. [201]ch kenne das "
  175. 51555 x$=x$+"[215]ort '"+su$+"' nicht.":goto52000
  176. 52000 rem formatierte textausgabe ----------------------------------------------
  177. 52010 ifx$=""then52090
  178. 52020 iflen(x$)<40thenprintx$:goto52090
  179. 52030 iflen(x$)=40thenprintx$;:goto52090
  180. 52040 i$=left$(x$,41):ic=0:fori=1tolen(i$):ifmid$(i$,i,1)=" "thenic=i
  181. 52050 nexti:ific=0thenprintx$:goto52090
  182. 52060 i$=left$(i$,ic-1):iflen(i$)=40thenprinti$;
  183. 52070 iflen(i$)<40thenprinti$
  184. 52080 x$=right$(x$,len(x$)-ic):goto52010
  185. 52090 return
  186. 52100 rem satz-teilbereich lesen -----------------------------------------------
  187. 52101 :
  188. 52110 hb%=sa/256:lb%=sa-hb%*256
  189. 52112 print#15,"p";chr$(3);chr$(lb%);chr$(hb%);chr$(1)
  190. 52114 input#15,a:ifa=50thenprint"satznummer zu hoch"
  191. 52120 ifa=50thenreturn
  192. 52130 input#1,a$
  193. 52140 wa=val(mid$(a$,22,1))
  194. 52150 wc=val(mid$(a$,23,3))
  195. 52160 a$=left$(a$,21)
  196. 52170 ifright$(a$,1)=""thena$=left$(a$,len(a$)-1):goto52170
  197. 52180 return
  198. 53000 rem up - titelline -------------------------------------------------------
  199. 53001 :
  200. 53010 i1$="                                     ":t$=""
  201. 53020 t$=t$+chr$(18)+r$:i$=str$(sc)+"/"+right$(str$(mo),len(str$(mo))-1)
  202. 53030 t$=t$+right$(i1$,41-len(t$)-len(i$))+i$+chr$(146):print"";t$;
  203. 53040 print"";:return
  204. 53200 rem up - disk einlegen ---------------------------------------------------
  205. 53201 :
  206. 53205 ific=21thengosub53700:rem weiter
  207. 53210 print"[194]itte [196]isk-[211]eite";side;"[157] einlegen ![146]";:poke198,0:wait198,1
  208. 53220 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                             ";
  209. 53221 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  210. 53222 open2,8,2,"#":print#15,"u1 2 0 18 0":print#15,"b-p";2;162:get#2,i$
  211. 53224 close2:ifside<>val(i$)then53200
  212. 53225 ifside=2thenopen1,8,3,"texte"
  213. 53230 return
  214. 53400 rem zeiger postionieren --------------------------------------------------
  215. 53401 :
  216. 53420 hb%=sa/256:lb%=sa-hb%*256:print#15,"p";chr$(3);chr$(lb%);chr$(hb%);chr$(1)
  217. 53430 input#15,ia:ifia=50thenprint"satznummer zu hoch"
  218. 53440 return
  219. 53500 rem satz einlesen --------------------------------------------------------
  220. 53501 :
  221. 53510 ifa=50then53520
  222. 53512 input#1,i$
  223. 53515 zw=zw+1:ifzw>23thengosub53700:zw=0
  224. 53520 return
  225. 53600 rem text-einlesen --------------------------------------------------------
  226. 53601 :
  227. 53610 ifside<>2thenside=2:gosub53200
  228. 53620 gosub53400:rem positonieren
  229. 53630 gosub53500:rem i$ einlesen
  230. 53640 ifright$(i$,1)<>"*"then53660
  231. 53650 :ifi$<>"*"thenprintleft$(i$,len(i$)-1)
  232. 53652 :sa=0:return
  233. 53660 iflen(i$)<40thenprinti$
  234. 53670 iflen(i$)>=40thenprinti$;
  235. 53680 sa=sa+1
  236. 53695 goto53630
  237. 53700 rem weiter ---------------------------------------------------------------
  238. 53701 :
  239. 53705 print"[weiter]";:poke198,0:wait198,1:print"[157][157][157][157][157][157][157][157]        [157][157][157][157][145]
  240. 53710 [142]
  241. 53800 [143] kommentar lesen ------------------------------------------------------
  242. 53801 :
  243. 53805 zw[178]1
  244. 53810 [153]:[141]53600:[142]
  245. 53900 [143] textformer ------------------
  246. 53901 :
  247. 53902 [139]x$[179][177]""[167][153]
  248. 53905 [139]x$[178]""[167]53945
  249. 53910 [139][195](x$)[179]40[167][153]x$:[137]53945
  250. 53915 [139][195](x$)[178]40[167][153]x$;:[137]53945
  251. 53920 i$[178][200](x$,41):ic[178]0:[129]i[178]1[164][195](i$):[139][202](i$,i,1)[178]" "[167]ic[178]i
  252. 53925 [130]i:[139]ic[178]0[167][153]x$:[137]53945
  253. 53930 i$[178][200](i$,ic[171]1):[139][195](i$)[178]40[167][153]i$;
  254. 53935 [139][195](i$)[179]40[167][153]i$
  255. 53940 x$[178][201](x$,[195](x$)[171]ic):[137]53905
  256. 53945 [142]
  257. 53950 [143] artikel-wandler -------------
  258. 53951 :
  259. 53952 ii$[178][200](ob$,3)
  260. 53955 [139]ii$[179][177]"str$er"[175]ii$[179][177]"str$as"[167]53965
  261. 53960 x$[178]"":x$[178]"left$ier liegt ein"[170][201](ob$,[195](ob$)[171]3)[170]"."
  262. 53965 [139]ii$[179][177]"str$ie"[167]53970
  263. 53966 x$[178]"":x$[178]"left$ier liegt eine"[170][201](ob$(i),[195](ob$)[171]3)[170]"."
  264. 53970 [137]53905
  265. 54000 [143] raumtext-einlesen ----------------------------------------------------
  266. 54001 :
  267. 54020 [153]:[129]i[178]1[164]oz :[143] ob.tab.
  268. 54030 :[139]ob(i)[179][177]zn[167]54080
  269. 54035 :[139]ox(i)[179]1[167]54080  :[143] namelos
  270. 54040 :sa[178]ox(i):[141]53400 :[143] posit.
  271. 54050 :[139]oa(i)[178]1[167][141]53500:r$[178]i$          :[143] read i$, titelline
  272. 54060 :[139]wi(zn)[178]1[175]ve[179][177]11[175]oa(i)[178]1[167][153]r$:sa[178]0:[137]54080
  273. 54070 :[141]53600          :[143] lesen
  274. 54080 [130]i
  275. 54081 [129]i[178]1[164]oz
  276. 54083 [139]ob(i)[179][177]zn[176]oa(i)[179][177]3[176]ox(i)[179][177]0[167]54088
  277. 54084 sa[178]os(i):[141]53400:[141]53500:ob$[178]"str$"[170][201](i$,[195](i$)[171]1)
  278. 54085 x$[178]"left$ier liegt "[170]ob$[170]".":zw[178]zw[170]1:[141]53950
  279. 54088 [130]i
  280. 54095 wi(zn)[178]1:[153]:[142]
  281. 60000 [143] tabellen einlesen ----------------------------------------------------
  282. 60001 :
  283. 63000 [143] *****************************
  284. 63005 [143] * mini-texteditor v.iii.4   *
  285. 63010 [143] *     <c> 1985              *
  286. 63015 [143] * von michael nickles       *
  287. 63020 [143] *****************************
  288. 63025 [143] anfangsmenue -----------------
  289. 63030 [151]198,0:[133]"dateiname  *cmdcmdcmd";d$:[151]198,0
  290. 63035 [133]"satzlaenge  40cmdcmdcmdcmd";sl:[139]sl[179]1[176]sl[177]254[167][153]"geht nicht !":[137]30
  291. 63040 [159] 15,8,15
  292. 63045 [152]15,"i0":[159] 1,8,3,d$:[153]
  293. 63050 [143] zwischenmenue ----------------
  294. 63055 [153]"s / l / ende                            wait";
  295. 63060 [161]i$:[139]i$[178]""[167]63060
  296. 63065 [139]i$[178]"e"[167][153]"load";:[137]63265
  297. 63070 [139]i$[179][177]"s"[175]i$[179][177]"l"[167]63060
  298. 63075 [133]"satznr";sa:[139] sa[179]0 [176] sa[177]63000 [167]63070
  299. 63080 [139]i$[178]"l"[167][153]"load";:[137]63095
  300. 63085 [139]i$[178]"s"[167][153]"load";:mo[178]1:[137]63150
  301. 63090 [137] 63050
  302. 63095 [143] lesen ------------------------
  303. 63100 :[153]"load";sa;"cmd-";[196](sa[170]20);" wait"
  304. 63105 ia[178]sa
  305. 63110 [129] sa[178]ia [164] ia[170]20
  306. 63115 : [141]63195:[141]63220
  307. 63120 : [139]a[178]50[167]sa[178]ia[170]21:[137]63135
  308. 63125 : [139][195](a$)[179]40[167][153]a$
  309. 63130 : [139][195](a$)[177][178]40[167][153]a$;
  310. 63135 [130]:[153]
  311. 63140 [139]a[178]50[167][153]"satznummer zu hoch!"
  312. 63145 [137] 63050
  313. 63150 [143] schreiben --------------------
  314. 63155 [153]"eingabesatz  //=keine eingabe"
  315. 63160 [141]63195:[143] positionieren
  316. 63165 [139]a[178]50[167][153]"satznummer zu hoch!":[137]63050:[143] fehlerkanalabfr.
  317. 63170 [141]63330:a$[178]be$                                   :[143] input-rout.
  318. 63175 [139]a$[178]"//"[167]mo[178]0:[137]63050:[143] ende
  319. 63180 [141]63240:[143] a$ schreiben
  320. 63185 sa[178]sa[170]1     :[143] naechster satz
  321. 63190 [137]63160:[143] next (loop)
  322. 63195 [143] positionieren ****************
  323. 63200 hb%[178]sa[173]256:lb%[178]sa[171]hb%[172]256
  324. 63205 [152]15,"p";[199](3);[199](lb%);[199](hb%);[199](1)
  325. 63210 [132]15,a
  326. 63215 [142]
  327. 63220 [143] satz einlesen ****************
  328. 63225 [139]a[178]50[167][142]
  329. 63230 [132]1,a$
  330. 63235 [142]
  331. 63240 [143] satz schreiben ***************
  332. 63245 [139]a[178]50[167][142]
  333. 63250 [139]a$[178]""[167]a$[178]":":[143] zur sicherheit !!!
  334. 63255 [152]1,a$
  335. 63260 [142]
  336. 63265 [143] beenden **********************
  337. 63270 [160] 1
  338. 63275 [160] 15
  339. 63280 [153] "++ ende ++"
  340. 63285 [128]
  341. 63290 [143] korrektur-routine ------------
  342. 63295 [129]i[178]0[164][195](be$):[153][199](20);:[130]i:be$[178]""
  343. 63300 sa[178]sa[170]sc       : [143] textzeiger
  344. 63305 [139]sa[179]0[167]sa[178]0 : [143] sperre
  345. 63310 [141] 63195: [143] positionieren
  346. 63315 [139]a[178]50[167]sa[178]sa[171]sc:[137]63310
  347. 63320 [132]1,a$
  348. 63325 [142]
  349. 63330 [143] texteingabe ------------------
  350. 63335 [139]ar[178]1[167]ar[178]0:a$[178]"satznummer zu hoch!wait":[137]63345
  351. 63340 [141]63195:[141]63220
  352. 63345 [153]"                                        ";:[153]"satz";sa;"wait"
  353. 63350 [153]"                                        on";a$
  354. 63355 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
  355. 63360 [153]""
  356. 63365 be$[178]"":[151]198,0:[151]211,0:[151]214,22:[158]58732:[153]"systo";
  357. 63370 [161]x$:[139][194](203)[178]1[167]63430
  358. 63375 [139] [194](203)[178]7[175][194](653)[178]0 [167] sc[178]1 : [141] 63290: [137] 63330
  359. 63380 [139] [194](203)[178]7[175][194](653)[178]1 [167] sc[178][171]1 : [141] 63290: [137] 63330
  360. 63385 [139]x$[178]""[167]63370
  361. 63390 [139][195](be$)[178]0[175][198](x$)[178]20[167]63370
  362. 63395 i[178][198](x$):[139]i[179]32[176]i[177]133[175]i[179]159[167][139]i[179][177]20[167]63370
  363. 63400 [139][195](be$)[178]sl[175]i[179][177]20[167]63370
  364. 63405 [139]x$[178]" "[167]x$[178]""
  365. 63410 be$[178]be$[170]x$
  366. 63415 [153][199](20);x$;"to";
  367. 63420 [139]i[178]20[167]be$[178][200](be$,[195](be$)[171]2):[137]63370
  368. 63425 [137]63370
  369. 63430 [153]"cmd ":[141]63195
  370. 63435 [139]be$[178]""[167]be$[178]":"
  371. 63440 [153]"":[142]
  372.